Clear["Global`*"];

s=;
stolpec=360;(*ker stolpec na obrezani sliki*)
pot="c:\\Users\\gal\\Documents\\DRUGI PROGRAMI\\Wolfram Mathematica\\saška ura\\data iz posnetkov\\Č\\";


sp=ImageData@s;
spčb=Round@Map[Total,sp[[;;,;;,;;3]],{2}]/3;
Δzpji=(Min@Position[#,0])&/@spčb;

ListPlot[Δzpji,Joined->True]
Export[pot<>"TNji.h5",
Transpose@{Δzpji,Table[stolpec,Length@Δzpji]}
];